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PARAAAARBAAAAAAALALALAAALAALAL ALAA ELAS ELAR AAA ARERR RRR RARER RAR RARER RAR ARRAS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH 49 SE AND WITH THE 
INCLUSION OF THE wor Sg ldh ad NOTICE. THIS SOFTWARE OR ANY OTHER 


© 
& 
* 
* 
* 
© 
* 
* 
V 

SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ™ 
% 

pe ne te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* 

* 

t 

® 

* 

® 

® 


OT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


0000 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: COBOL SUPPORT 
"ABSTRACT: 


This module contains the routine that converts floating 
numbers to quadword. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Marty Jack, 14-Mar-1979 


MODIFIED BY: 
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.SBTTL HISTORY 3 Detailed Current Edit History | 


; Edit History for Version 1 of COBCVTFQ 


Original. MLJ 14-Mar-1979 

Correct problem with high order longword. MLJ al 
Correct round toward zero prepien. POG 12-Jul-1979 

Make external references expt cit. RKR 17-JULY-1979 

Change _ all feferences to FORSCNV_OUT_E to COBSCNVOUT 

RKR = 27-SEPT-7 

Cosmetic changes. RKR 18-OCT-79 
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AX/VMS Macro * 90 


1 r - Page 
[14 ECOBRTL. sReacOBCVTFO.MaR:1 (22° (3, 


; INCLUDE FILES: 


: PSECT DECLARATIONS: 
-PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 


SDSCDEF 
0 — 
> EXTERNAL SYMBOLS: 
8 -DSABL GBL ; Prevent undeclared symbols from being 
; automatically global 
$0 -EXTRN COBSCNVOUT 3; E-format conversion 
00 -EXTRN LIBSSTOP : Error halt 
4 -EXTRN OTSS_FATINTERR ; Fatal internal error code 
0 3 
0 
0 3 
9 ; MACROS: 
0 : NONE 
0 3 
p 
0 
0 


: EQUATED SYMBOLS: 
FY NONE 


OWN STORAGE: 


+ 
The fol Loying constant has the value 2**32. It is used for scaling 
the high 32 bits and for compensating for unsigned arithmetic. 


6C 29 67 49 29 04 IAS: .PACKED 4294967296 


The following constant is 2**32-1. It's subtracted from negative numbers, 


> to compensate for ronding towards zero. 
5C 29 67 49 29 04 BIAS_1: .PACKED 4294967295 
0000000A BIAS_DIGITS=1 


DBODODOOOOO0O OOOO OOOO 000009 09 09 09 09 09 09 09 SI NI NINN NINN NIA A AAAOOAO 
CNAME WN SO ONAN ODNOA WP 
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eit CoB tvira Re ° Fo att 7 Biz il YCOBRTL. SREICOBCUTFO.MAR: 1 — (4) 
— 1} -SBTTL COBSCVTFQ_RB 
C 112 ;++ 
: Wi 3 FUNCTIONAL DESCRIPTION: 
p ¢ 113 : Converts a floating number to quadword. 
o¢ 1% $ CALLING SEQUENCE: 
9o¢ 119 ; JSB COBSCVTFQ_RB (scale.rl.v, src.rf.r, dst.wq.r) | 
3 1 ; Arguments are passed in R6, R7, and R8. 
99¢ : INPUT PARAMETERS: 
900¢ 125: SCALE.rl.v The power of ten by which the internal 
0O0C 126; reoreseatat ren of the source must be 
9000 127; multiplied to scale the same as the 
9000 128; internal representation of the dest. 
80 SRC. rf.r The number to be converted 
000C 131 : IMPLICIT INPUTS: 
o00c «(1 ¢ 3 
80 ALL of the trap bits in the PSL are assumed off. 
000C 135 : OUTPUT PARAMETERS: 
000C 136; 
88 38 DST.wa.r The place to store the converted number | 
000C 139 : IMPLICIT OUTPUTS: 
000C 140 ; 
000C 141 ; NONE 
000C 136 3 
000C 145 ; FUNCTION VALUE: 
QOOOC 144 ; 
000C 145 ; 1 = SUCCESS, 0 = FAILURE 
9000 146; 
000C 147 ; SIDE EFFECTS: 
O00C 148; 
9000 149 ; Destroys registers RO through R8. 
000c 150; 
000C 151 ;:-- 
000C 13 
7 | 
C 154 COBSCVTFQ R8:: 
SE 30 2 8 155 SOBL2 #48,SP : Allocate temp space 
6 67 56 OF 136 CVTFD (R75, (SP) : Get input number 
0 133 > Make a descriptor for the temporary string. | 
08 AE 9F 001 160 ° PUSHAB 8(SP) ; Address = space reserved 
7E O01 90 1 161 MOVB #OSC$K_CLASS_S,=-(SP) ; Class = static ; | 
7E OF 90 1 16¢ MOVB 4 per DTYPE_T,=-(SP) ; Data type = ASCII string 
7E 26 80 18 197 MOVW #38,-(S5P) ; Length in bytes 
1E 165 : Call COBSCNVOUT. 
1E 166 ; 


aa > 12 
| SORSEVTFG_RS £080. Fonvert Floating to Quadword Fo dt 9 $3231] AX/VMS Macro V04-00 Page 5 
COBSCVTFQ_R8 6-SEP=-1984 743:14 COBRTL.SRCIJCOBCVTFQ.MAR; 1 (4) 
1f 44 1 167 PUSHL #31 : Digits in fraction 
8 AE F 198 PUSHAB 4(SP) ; Output string descriptor 
OA OF 1 PUSHAB 16(SP) ; Number to convert 
00000000 ' GF 9 F 6 170 CALLS @# ——— : Call conversion routine 
55 i D WI : BLBC RO,20$ 3; Should never fa 
° 178 ; Convert the exponent and correct for scale factor. 
6— 02 33 AE 0 99 0 175° CVTSP -#2,51(SP) ,#2, (SP) : Make packed exponent 
50 =6E 6 6 178 CVTPL @ : Make longword exponent 
56 =E—1 A64 9E 00 : if MOVAB =34(R6)EROI,R6 3; Correct for fraction size and scale 
0 : 179 : Convert the fraction to packed. 
12 “ 10 AE 90 00 F 181 ; MOVB —3338—8 : Move sign over “.“ 
6—E iF 12 AE IF O9 00464 186 CVTSP #31,18(SP) #51, (SP) > Make packed fraction 
10 AE 13 =O e Ww Ss F8 Boe 18 ASHP R6,#31,(SP5,#0.419,16(SP) ; Scale to temporar 
O3g 184 3 (also clears RO ; 
0D 1D 005 185 BVS 10$ : Branch if won't fit in 19 digits 
68 63 13 36 0054 186 CVTPL) #19, (R3), (RB) ; Convert to longword 
0058 187 : (also clears RO) 
0B 1D 0058 # £188 BVS 11$ :; Can't fit in 32 bits 
68 88 €1 8F 78 OQOOSA 189 ASHL #-31,(R8)+, (RB) :; Spread sign bit 
50 06 QOOSF 190 INC 3: Indicate success, RO = 1 
SE 38 CO 0061 121 108: ADDL2 #56,SP 3; Delete stack temps 
0 883 198 * 
0065 194 : Come here if ghe packed number won't fit in 32 bits. 
bogs 132 : Divide by 2**32 to get the high 32 bits of the quadword. 
06 09 Al —E9 88 199 11$: BLBC 9(R1),13$ : Skip if peeretee 
61 13 99 AF OA $$ 069 198 SUBP4 #BIAS_DIGITS,BIAS_1,419,(R1) ; Make more negative 
13. 10 AE 13° 8D AF OA 2 O06F 199 13$: DIVP  #BIAS-DIGITS.BIAS;#19,16(SP),#19,(SP) ; Divide by 2*#32 
04 AB 6E 5 36 0078 $00 CVTPL #19, (SP),4(R8) ; Convert and store high bits 
07D 01 3 (also clears 
8 1D 0070 8 BVS 12$ ; Number too large for a 64-bit integer 
5 D6 007F 0 INCL RO : Indicate success, RO = 1 
5E 38 CO 0081 04 12$: ADDL2 #56,SP : Delete stack temps 
05 bone 8 RSB 3; Return 
Boge 0? : Come here on failure of COBSCNVOUT. This should never happen. 
90000000" F OD 9 5 09 20S:  PUSHL #OTS$_FATINTERR : OTS fatal error message 
00000000 ' GF 1 FB 8 CALLS #1,G*CIBSSTOP ; Signal and don't return 
09 Z END 


—— 
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The working set Limit was 1050 pages. 

9010 bytes (18 pages) of virtual memory were used to buffer the intermediate co 

There were 10 pages of symbol table space allocated to hold 138 non-local and 30 focal symbols. 
12 source Lines were read in Pass 1, progye ing object records in Pass 2. 

pages of virtual memory were used to define 7 macros. 


Macro Library name 


"$255$DUA28: CSYSLIBISTARLET. MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


— —ñ —ñ —— — — — — — — — —— — — — — — — — — — 


coscuto. as 8 33 11 ae M 
Symbol table 6-SEP-1984 :43:14 (CCOBRTL.S 
BIAS OR 
Bi Ee 
BIAS_DIGITS A 
COBSCNVOUT 9000000¢ ¥ 68 
COBSCVTFQ_RB 09909 ‘Bie 0 
DSCSK_CLASS_S 
OSCSK_DTYPE_T 
LIBSSTOP Sosteect x 00 
OTS$_FATINTERR eeneeeee x0600 

Poem rome ne wor ana ¢ 
! Psect synopsis ! 
$ee ee ween en nn ccna} 

PSECT name Allocation PSECT No. Attributes 
- ABS 00000000 60 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE 
SABSS 00000000 60 0.) O1¢ #1.) NOPIC USR CON ABS LCL NOSHR- EXE 
_COBSCODE 00000092 ( 146.) 02 ¢ 2.) PIC USR CON REL LCL SHR_- EXE 

— ewer emcee me enn ence ammo momen + 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.05 00:00:00.84 
poanene processing 102 BO O6 67755 00:00:02.56 
Pas 136 00:00:01.22 00:00:09.61 
Symbol table sort 0 00:00:00.09 00:00:00.22 

Pass 2 51 00:00:00.41 00:00:04.26 
Symbol table output ¢ 00:00:00.01 00:00:00.01 

Psect synopsis output 00:00:00.02 —881838 
Cross-reference outeot 00:00:00.00 00:00:00.0 
Assembler run totals 32 00:00:02.09 00:00:17.58 


acro V04-00 Page 6 
RCICOBCVTFQ.MAR; 1 (4) 
NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:COBCVTFQ/0BJ=0BJ$:COBCVTFQ MSRC$:COBCVTFQ/UPDATE=(ENHS$: COBCVTFQ) 
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